home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Sample Code / Newton Sample Code 1.2 / Communications / IR Remote Sample-2 / Project Data < prev    next >
Encoding:
Text File  |  1994-02-09  |  2.4 KB  |  66 lines  |  [TEXT/NTP1]
  1. //--------------------------------------------------------------------------------
  2. //          Constants
  3. //--------------------------------------------------------------------------------
  4.  
  5. // keep these in sync with the pickRemote label picker
  6. constant kPowerCD := 0;
  7. constant kSonyCD := 1;
  8. constant kTest := 2;
  9.  
  10. constant kPlay:= 0;
  11. constant kStop := 1;
  12. constant kPause := 2;
  13. constant kFF := 3;
  14. constant kRew := 4;
  15. constant kNext := 5;
  16. constant kPrev := 6;
  17.  
  18. //--------------------------------------------------------------------------------
  19. //          Philips RC-5 commands (PowerCD)
  20. //--------------------------------------------------------------------------------
  21.  
  22. rf := OpenResFileX(Home & "RC5.rsrc");
  23.  
  24. // RC-5 requires the Control bit to be toggled for each new command
  25. // so we have two commands, one with C set, and one with C clear
  26.  
  27. rc5CDPlay0 := GetNamedResource("IRCD", "RC5Play0", 'resource);
  28. rc5CDPlay1 := GetNamedResource("IRCD", "RC5Play1", 'resource);
  29.  
  30. rc5CDStop0 := GetNamedResource("IRCD", "RC5Stop0", 'resource);
  31. rc5CDstop1 := GetNamedResource("IRCD", "RC5Stop1", 'resource);
  32.  
  33. rc5CDPause0 := GetNamedResource("IRCD", "RC5Pause0", 'resource);
  34. rc5CDPause1 := GetNamedResource("IRCD", "RC5Pause1", 'resource);
  35.  
  36. rc5CDFF0 := GetNamedResource("IRCD", "RC5FF0", 'resource);
  37. rc5CDFF1 := GetNamedResource("IRCD", "RC5FF1", 'resource);
  38.  
  39. rc5CDRew0 := GetNamedResource("IRCD", "RC5Rew0", 'resource);
  40. rc5CDRew1 := GetNamedResource("IRCD", "RC5Rew1", 'resource);
  41.  
  42. rc5CDNext0 := GetNamedResource("IRCD", "RC5Next0", 'resource);
  43. rc5CDNext1 := GetNamedResource("IRCD", "RC5Next1", 'resource);
  44.  
  45. rc5CDPrev0 := GetNamedResource("IRCD", "RC5Prev0", 'resource);
  46. rc5CDPrev1 := GetNamedResource("IRCD", "RC5Prev1", 'resource);
  47.  
  48. CloseResFileX(rf);
  49.  
  50. //--------------------------------------------------------------------------------
  51. //          Sony commands
  52. //--------------------------------------------------------------------------------
  53.  
  54. rf := OpenResFileX(Home & "Sony.rsrc");
  55.  
  56. sonyCDPlay := GetNamedResource("IRCD", "SonyCDPlay", 'resource);
  57. sonyCDStop := GetNamedResource("IRCD", "SonyCDStop", 'resource);
  58. sonyCDPause := GetNamedResource("IRCD", "SonyCDPause", 'resource);
  59. sonyCDFF := GetNamedResource("IRCD", "SonyCDFF", 'resource);
  60. sonyCDRew := GetNamedResource("IRCD", "SonyCDRew", 'resource);
  61. sonyCDNext := GetNamedResource("IRCD", "SonyCDTrackUp", 'resource);
  62. sonyCDPrev := GetNamedResource("IRCD", "SonyCDTrackDown", 'resource);
  63.  
  64. CloseResFileX(rf);
  65.  
  66.